QRZ! Ham Radio 8/QRZ Ham Radio Callsign Database - Volume 8.iso/pc/files/mac/chess_hc.hqx/Chess Stack1.0/ChessStack V1.0/card_6290.txt

Text File | 1988-06-28 | 21KB | 1,058 lines

-- card: 6290 from stack: in.0
-- bmap block id: 6728
-- flags: 4000
-- background id: 2581
-- name: Main
----- HyperTalk script -----
on enterKey
  put empty into card field "outField"
end enterKey

on arrowKey
  put empty into card field "inField"
end arrowKey

on openCard
  global communicationsMode
  if communicationsMode is "Packet" then
    hide card button "Dial"
    hide card button "Hang"
    show card button "Cmd:"
    show card button "Conn"
    hide card button "Disc"
  else if communicationsMode is "Modem" then
    show card button "Dial"
    show card button "Hang"
    hide card button "Cmd:"
    hide card button "Conn"
    hide card button "Disc"
  end if
end openCard


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=299 top=299 right=334 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 16145 / 16145
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White King
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=256 top=299 right=334 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 27947 / 27947
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Queen
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=299 right=334 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 30724 / 30724
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Bishop1
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=175 top=298 right=334 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 4614 / 4614
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Knight1
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=136 top=258 right=291 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 23927 / 23927
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Pawn1
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=135 top=299 right=333 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 30036 / 30036
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Rook1
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=299 top=5 right=40 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 16113 / 16113
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black King
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=258 top=5 right=40 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 14 / 14
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Queen
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=214 top=5 right=40 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 11762 / 11762
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Bishop1
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=175 top=4 right=40 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 2548 / 2548
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Knight1
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=135 top=6 right=39 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 484 / 484
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Rook1
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=136 top=48 right=81 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 9813 / 9813
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Pawn1
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=178 top=258 right=291 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 23927 / 23927
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Pawn2
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=258 right=291 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 23927 / 23927
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Pawn3
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=262 top=258 right=291 bottom=286
-- title width / last selected line: 0
-- icon id / first selected line: 23927 / 23927
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Pawn4
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=304 top=258 right=291 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 23927 / 23927
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Pawn5
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=346 top=258 right=291 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 23927 / 23927
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Pawn6
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=388 top=258 right=291 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 23927 / 23927
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Pawn7
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=430 top=258 right=291 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 23927 / 23927
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Pawn8
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=178 top=48 right=81 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 9813 / 9813
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Pawn2
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=48 right=81 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 9813 / 9813
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Pawn3
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=262 top=48 right=81 bottom=286
-- title width / last selected line: 0
-- icon id / first selected line: 9813 / 9813
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Pawn4
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=304 top=48 right=81 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 9813 / 9813
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Pawn5
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=346 top=48 right=81 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 9813 / 9813
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Pawn6
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=388 top=48 right=81 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 9813 / 9813
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Pawn7
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=430 top=48 right=81 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 9813 / 9813
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Pawn8
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=429 top=299 right=333 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 30036 / 30036
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Rook2
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=341 top=299 right=334 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 30724 / 30724
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Bishop2
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=298 right=334 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 4614 / 4614
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White Knight2
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=429 top=6 right=39 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 484 / 484
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Rook2
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=340 top=5 right=40 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 11762 / 11762
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Bishop2
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=4 right=40 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 2548 / 2548
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Black Knight2
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    set the loc of the target to the mouseloc
  end repeat
end mouseDown

on mouseUp
  centerPiece
end mouseup



-- part 43 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=472 top=25 right=46 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial
----- HyperTalk script -----
on mouseUp
  put "Dialing..." into field "Game Info"
  sendSPort 1,false,"ATDT" & (card field "PhoneNumber" of card "Options") & return
  wait 1 seconds
  put empty into field "Game Info"
end mouseUp



-- part 44 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=4 top=62 right=160 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: inField


-- part 45 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=4 top=179 right=245 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: outField


-- part 46 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=470 top=203 right=222 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cmd:
----- HyperTalk script -----
on mouseUp
  global cC1,communicationsMode
  put "Sending..." into field "Game Info"
  if communicationsMode is "Packet" then
    sendSPort 1,false,cC1 & card field "outField" & return
  else
    sendSPort 1,false,card field "outField" & return
  end if
  wait 1 seconds
  put empty into field "Game Info"
end mouseUp



-- part 51 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=472 top=72 right=92 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hang
----- HyperTalk script -----
on mouseUp
  put "Hanging Up" into field "Game Info"
  wait 1 seconds
  sendSPort 1,false,"+++"
  wait 2 seconds
  sendSPort 1,false,"ATH" & return
  wait 2 seconds
  sendSPort 1,false,"ATZ" & return
  put empty into field "Game Info"
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=472 top=121 right=140 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Conn
----- HyperTalk script -----
on mouseUp
  global cntlC3,cC1
  put "Connecting..." into field "Game Info"
  put card field "TncbaudRate" of card "Options" into theBRate
  setBaud theBRate
  put card field "hamID" of card "Options" into theHamID
  sendSPort 1,false,cC1 & return
  sendSPort 1,false,"ECHO OFF" & return
  sendSPort 1,false,"CONNECT" && theHamID & return
  --  sendSPort 1,false,"CONVERSE" & return
end mouseUp



-- part 55 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=472 top=144 right=163 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Disc
----- HyperTalk script -----
on mouseUp
  global cntlC3,cC1
  put "Disconnect..." into field "Game Info"
  sendSPort 1,false,cC1 & "DISCONNE" & return
  sendSPort 1,false,"ECHO ON" & return
end mouseUp



-- part 57 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=471 top=160 right=179 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Msg
----- HyperTalk script -----
on mouseUp
  put "Msg..." into field "Game Info"
  sendSPort 1,false,"Msg" && card field "outField" & return
  wait 1 seconds
  put empty into field "Game Info"
end mouseUp



-- part 59 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=468 top=251 right=294 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 2507 / 2507
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to card "Help Index"
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=470 top=183 right=198 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  push card
  go to card "Options"
end mouseUp



-- part contents for background part 67
----- text -----
Packet Chess V1.0

-- part contents for background part 75
----- text -----
White

-- part contents for background part 74
----- text -----
Black